2015/09/25

Recent entries from same category

  1. Perl6 の無限リストとダイナミックバインディングが最強すぎる
  2. Perl6 の grammar で俺言語「しょぼいスクリプト」を作った。
  3. C言語に Perl6 を埋め込む。
  4. Perl6 の CPAN Author になりました。
  5. Perl6 の Panda でインストールがちゃんと出来なくなった場合の修正方法。

動作に必要なのは HTTP::Server::TinyDigest::MD5HTTP::Server::Tiny は安心の tokuhirom プロダクツ。

tokuhirom/p6-HTTP-Server-Tiny - GitHub
https://github.com/tokuhirom/p6-HTTP-Server-Tiny

そしてコード

mattn/p6-gyazo - GitHub

You signed in with another tab or window. Reload to refresh your session. You signed out in another ...

https://github.com/mattn/p6-gyazo
use v6;

use Crust::Request;
use Digest::MD5;

my $page = q:heredoc/END/.encode('utf-8');
<!DOCTYPE html>
<html lang="ja">
<head>
    <meta charset="UTF-8">
    <title>俺ぎゃぞ</title>
    <link href='http://fonts.googleapis.com/css?family=Skranji' rel='stylesheet' type='text/css'>
<style type="text/css">
#content {
    text-align: center;
}
.big {
    font-family: 'Skranji', cursive;
    font-size: 170px;
}
.small {
    font-family: 'Skranji', cursive;
    font-size: 70px;
}
</style>
</head>
<body>
    <div id="content">
        <span class="big">OreGyazo</span><br />
    <div>
</body>
</html>
END

sub app($env) {
    my $req = Crust::Request.new($env);
    if $req.method eq 'POST' {
        my $image = $req.uploads.values.[0];
        my $md5 = Digest::MD5.md5_hex(slurp($image.path, :bin));
        rename $image.path, "images/{$md5}.png";
        return [200, ['Content-Type' => 'text/html; charset=UTF-8'], ["{$req.base}{$md5}.png".encode('utf-8')]];
    }
    if $req.path-info eq '/' {
        return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$page]];
    }
    if $req.path-info ~~ m{^^ '/' (\w+ '.png') $$} {
        my $content = try slurp("images/{$0}", :bin);
        if $content {
            return [200, ['Content-Type' => 'image/png'], [$content]];
        }
    }
    return [404, ['Content-Type' => 'text/plain'], ["Not Found".encode("utf-8")]];
}

# vim:set ft=perl6 et:

全く使い物にならないと思ってるアナタ、Perl6 そろそろ来るで。

Posted at by